home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib18.dsk / PROGRAMMABLE KEYS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  29 lines
  1. 60  REM  **********************
  2. 70  REM  * PROGRAMMABLE  KEYS *
  3. 80  REM  *   BY PAUL RAYMER   *
  4. 90  REM  * COPYRIGHT (C) 1984 *
  5. 100  REM * BY MICROSPARC, INC *
  6. 110  REM * LINCOLN, MA. 01773 *
  7. 120  REM **********************
  8. 130  TEXT : HOME : CLEAR 
  9. 140 X = 1:Q$ =  CHR$(34)
  10. 150  DIM A$(96),Z$(96)
  11. 160  VTAB 1: HTAB 1: PRINT "TO STOP...PRESS <RETURN> WITH NO ENTRY"
  12. 170  VTAB 5: HTAB 1: CALL  -958: PRINT "WHAT KEY WOULD YOU LIKE TO CHANGE? ";: GET A$(X): INVERSE : PRINT A$(X): NORMAL 
  13. 180  IF A$(X) =  CHR$(13)  THEN 250
  14. 190  PRINT : PRINT "CHANGE IT TO WHAT? ";: GET Z$(X):: INVERSE : PRINT Z$(X): NORMAL 
  15. 200  PRINT : HTAB 12: PRINT Q$;A$(X);Q$;" IS TO BE ";Q$;Z$(X);Q$;
  16. 210  PRINT : PRINT : PRINT "IS THIS CORRECT? ";: GET V$
  17. 220  IF V$ < >"Y"  THEN 170
  18. 230 X = X +1
  19. 240  GOTO 170
  20. 250  HOME 
  21. 260  PRINT "TYPE ANYTHING...PRESS <ESC> TO QUIT...": PRINT : PRINT 
  22. 270  GET L$
  23. 280  IF L$ =  CHR$(27)  THEN 340
  24. 290  FOR A = 1 TO X
  25. 300  IF A$(A) = L$  THEN  PRINT Z$(A);:A = X: GOTO 330
  26. 310  NEXT A
  27. 320  PRINT L$;
  28. 330  GOTO 270
  29. 340  VTAB 22: HTAB 1: END